home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 19 / Amiga Format CD19 (1997-10-02)(Future Publishing)(GB)(Track 1 of 5)[!][issue 1997-11].iso / -seriously_amiga- / shareware / workbench / dopus / webupdate / webupdate.dopus5 next >
Text File  |  1997-08-18  |  3KB  |  117 lines
  1. /* $VER: WebUpdate.dopus5 1.10 (10 JUL 97)
  2. ** by Charles Patterson <midian@azstarnet.com>
  3. ** http://www.azstarnet.com/~midian/
  4. **
  5. ** Description: Connects to FTP site, compares web page file dates then
  6. **              uploads updated files.
  7. **
  8. ** Requires: DirectoryOpus v5.5 (© 1996 by Jonathan Potter)
  9. **           Online with a TCP stack (no kidding :)
  10. **
  11. ** Instructions: Set the paths and preferences below then call
  12. **               webupdate.dopus5 anyway you want to. :)
  13. **               If you don't like the idea of having your password inside
  14. **               the script, you can go down to the line below where it
  15. **               says /* Connect here */ and just delete the word "password"
  16. **
  17. ** --- Local path for web page --- */
  18. LISTER.0.0="DH2:Homepage/Midian/"
  19.  
  20. /* --- Remote path for web page --- */
  21. LISTER.1.0="/users2/home/m/midian/public_html/"
  22.  
  23. /* --- Remote Host --- */
  24. host="ftp.azstarnet.com"
  25.  
  26. /* --- Username and Password --- */
  27. username="yourusername"
  28. password="yourpassword"
  29.  
  30. OPTIONS RESULTS
  31.  
  32. IF ~SHOW('P',DOPUS.1) THEN ADDRESS COMMAND RUN DOPUS5:DirectoryOpus
  33.  
  34. ADDRESS DOPUS.1
  35. DOPUS FRONT
  36.  
  37. DOPUS VERSION
  38. IF ( result='RESULT' | TRANSLATE(result,'.',' ') < 5.1218 ) THEN DO
  39.     DOPUS REQUEST '"This script requires DOpus v5.5 or greater." OK'
  40.     EXIT
  41. END
  42.  
  43. DOPUS SCREEN
  44. screen=RESULT
  45. PARSE VAR screen sinfo.0 screen
  46. PARSE VAR screen sinfo.1 screen
  47. IF sinfo.1 > 600 THEN DO
  48.     LISTER NEW "0/11/262/351" LISTER.0.0
  49. END
  50. ELSE DO
  51.     LISTER NEW "0/11/150/200" LISTER.0.0
  52. END
  53. LISTER.0.1=RESULT
  54.  
  55. /* Connect here */
  56. COMMAND WAIT FTPCONNECT host username password DIR LISTER.1.0
  57. LISTER REQUEST LISTER.0.1 '"When Remote directory '||'0a'x||'is listed click" OK'
  58.  
  59. LISTER QUERY ALL
  60. lists=RESULT
  61. k=0
  62. DO WHILE lists ~= ''
  63.     PARSE VAR lists list.k lists
  64. END
  65. LISTER.1.1=list.k
  66.  
  67. DO n = 0 TO 1
  68.     LISTER SET LISTER.n.1 TITLE 'Listing Files'
  69.     LISTER REFRESH LISTER.n.1 FULL
  70.     LISTER SET LISTER.n.1 BUSY 1 WAIT
  71.     LISTER QUERY LISTER.n.1 FILES stem file.n
  72.     LISTER QUERY LISTER.n.1 NUMFILES
  73.     NFiles.n = RESULT
  74.     DO f = 0 TO NFiles.n
  75.         LISTER QUERY LISTER.n.1 ENTRY file.n.f stem fileinfo.n.f
  76.     END
  77. END
  78.  
  79. DO n = 0 to 1
  80.     LISTER SET LISTER.n.1 BUSY 0
  81.     LISTER SET LISTER.n.1 TITLE 'Comparing...'
  82.     LISTER REFRESH LISTER.n.1 FULL
  83.     LISTER SET LISTER.n.1 BUSY 1 WAIT
  84. END
  85.  
  86. filetrans=''
  87. DO c = 0 TO (NFiles.0 - 1)
  88.     DO z = 0 TO (NFiles.1 - 1)
  89.         IF file.0.c = file.1.z THEN DO
  90.             IF fileinfo.0.c.date > fileinfo.1.z.date THEN
  91. filetrans=filetrans file.0.c
  92.             ITERATE c
  93.         END
  94.     END
  95.     filetrans=filetrans file.0.c
  96. END
  97.  
  98. /* Upload files */
  99. LISTER SET LISTER.0.1 TITLE 'Uploading...'
  100. LISTER SET LISTER.1.1 TITLE 'Receiving...'
  101. DO n = 0 to 1
  102.     LISTER SET LISTER.n.1 BUSY 0
  103.     LISTER REFRESH LISTER.n.1 FULL
  104. END
  105. DO WHILE filetrans ~= ''
  106.     PARSE VAR filetrans fileup filetrans
  107.     LISTER SELECT LISTER.0.1 fileup
  108. END
  109.  
  110. COMMAND WAIT SOURCE LISTER.0.1 DEST LISTER.1.1 COPY
  111.  
  112. LISTER REQUEST LISTER.1.1 '"Click OK when upload is finished." OK'
  113. LISTER CLOSE LISTER.0.1
  114. COMMAND FTPQUIT
  115. EXIT
  116.  
  117.